COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	a←1
C00006 ENDMK
C⊗;
a←1
b←2
c←3
d←4
e←5
f←6
g←7
h←10
q←11
chn1←←1
chn2←←2
chn3←←3
chn4←←4
chn5←←5
chn6←←6
chn7←←7

start:
	init chn1,0
	sixbit /DSK/
	ibuf1
	halt .
	init chn2,0
	sixbit /DSK/
	ibuf2
	halt .
	init chn3,0
	sixbit /DSK/
	ibuf3
	halt .
	init chn4,0
	sixbit /DSK/
	ibuf4
	halt .
	init chn5,0
	sixbit /DSK/
	ibuf5
	halt .
	init chn6,0
	sixbit /DSK/
	ibuf6
	halt .
	init chn7,0
	sixbit /DSK/
	ibuf7
	halt .
look:	move a,[sixbit /unabrd/]
	hllz b,[sixbit /dic/]
	move d,[sixbit /libdoc/]
	lookup chn1,a
	jrst lose
	inbuf chn1,1
     	move a,[sixbit /unabrd/]
	hllz b,[sixbit /dic/]
	move d,[sixbit /libdoc/]
	lookup chn2,a
	jrst lose
	inbuf chn2,1
     	move a,[sixbit /unabrd/]
	hllz b,[sixbit /dic/]
	move d,[sixbit /libdoc/]
	lookup chn3,a
	jrst lose
	inbuf chn3,1
     	move a,[sixbit /unabrd/]
	hllz b,[sixbit /dic/]
	move d,[sixbit /libdoc/]
	lookup chn4,a
	jrst lose
	inbuf chn4,1
     	move a,[sixbit /unabrd/]
	hllz b,[sixbit /dic/]
	move d,[sixbit /libdoc/]
	lookup chn5,a
	jrst lose
	inbuf chn5,1
     	move a,[sixbit /unabrd/]
	hllz b,[sixbit /dic/]
	move d,[sixbit /libdoc/]
	lookup chn6,a
	jrst lose
	inbuf chn6,1
     	move a,[sixbit /unabrd/]
	hllz b,[sixbit /dic/]
	move d,[sixbit /libdoc/]
	lookup chn7,a
	jrst lose
	inbuf chn7,1
	movss d
	movns d
	idivi d,200
again:	movei a,(d)
	movei b,1
	movei c,(d)
	movei e,(d)
	movei f,(d)
	movei g,(d)
	movei h,(d)
loop:	
	movei q,70000
	core2 q,
	jfcl
	setz q
	core2 q
	jfcl
	useti chn1,(a)
	useti chn2,(b)
	aos b
	useti chn3,(c)
	subi c,2
	jumpg c, ok1
	movei c,(d)
ok1:	useti chn4,(e)
	subi e,3
	jumpg e,ok2
	movei e,(d)
ok2:	useti chn5,(f)
	subi f,4
	jumpg f,ok3
	movei f,(d)
ok3:	useti chn6,(g)
	subi g,5
	jumpg g,ok4
	movei g,(d)
ok4:	useti chn7,(h)
	subi h,6
	jumpg h,ok5
	movei h,(d)
ok5:	sojge a,loop
	jrst again
lose:	movei a,3
	sleep a,
	jrst look
ibuf1:	block 3
ibuf2:	block 3
ibuf3:	block 3
ibuf4:	block 3
ibuf5:	block 3
ibuf6:	block 3
ibuf7:	block 3
	end start